﻿Imports UCBase
Imports System.Drawing

Public Class Img3Way
    Implements I_ImageExchange
    Implements I_LoadSave
    Private WithEvents SourceEvent As I_ImageExchange
    Private SourceBitmap As System.Drawing.Bitmap
    Public Event ImageReady(ByVal Image As System.Drawing.Bitmap) Implements I_ImageExchange.ImageOut1

    Public Function GetSettings() As String Implements UCBase.I_LoadSave.GetSettings
        Return ""
    End Function
    Public Sub SetSettings(ByVal Settings As String) Implements UCBase.I_LoadSave.SetSettings

    End Sub

    Private Sub SourceEvent_ImageReady(ByVal Image As System.Drawing.Bitmap) Handles SourceEvent.ImageOut1
        RaiseEvent ImageReady(Image)
    End Sub

    Private Sub ImageSplitter_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.Width = 80
        Me.Height = 100
    End Sub

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
    End Sub

    Private Sub Socket3_Connect() Handles Socket3.Connect
        Dim S As Socket = Socket3.Remote
        SourceEvent = S.Parent
    End Sub
End Class
